Komputer for Alle 2001 #16/2001 CD 16 (Black).iso/K-CS.DCR/00249_JetCar Special.ls

Text File | 2001-10-25 | 1.6 KB | 55 lines

property MySprite
global BlinkObjekt

on new me
  cursor(0)
  startTimer()
  set MyTimer to 0
  set BlinkObject to 0
  set the locH of sprite 99 to 780
  set BlinkObjekt to new(script "Blink", 4, 80)
  repeat with MySprite = 62 to 69
    set the visible of sprite MySprite to 0
    set the visible of sprite (MySprite + 8) to 0
    set the visible of sprite (MySprite + 16) to 0
    set the visible of sprite (MySprite + 24) to 0
  end repeat
  set MySprite to 0
end

on exitFrame
  checkBlink(BlinkObjekt)
  if the timer > 10 then
    set NewPos to the locH of sprite 100 + 10
    if NewPos > 365 then
      if the locV of sprite 100 > 315 then
        go(#next)
      else
        set NewPos to 269
        set VPos to the locV of sprite 100 + 11
        set the locV of sprite 100 to VPos
        set the locV of sprite 101 to VPos + 22
        set the locV of sprite 102 to VPos + 44
        set the locV of sprite 103 to VPos + 66
      end if
    end if
    if the locV of sprite 100 <= 315 then
      set the locH of sprite 100 to NewPos
      set the locH of sprite 101 to NewPos
      set the locH of sprite 102 to NewPos
      set the locH of sprite 103 to NewPos
      set the visible of sprite ((MySprite / 3) + 62) to 1
      set the visible of sprite ((MySprite / 3) + 70) to 1
      set the visible of sprite ((MySprite / 3) + 78) to 1
      set the visible of sprite ((MySprite / 3) + 86) to 1
      updateStage()
      set MySprite to MySprite + 1
      if MySprite = 10 then
        set MySprite to 12
      end if
      startTimer()
    end if
  end if
  go(#loop)
end